home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 015a / isshare.zip / ISSHARE.SUB < prev   
Text File  |  1991-03-01  |  3KB  |  48 lines
  1.         ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2.         ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  3.         ':::                                                                 :::
  4.         ':::    PROGRAM:        ISSHARE.SUB                                  :::
  5.         ':::    AUTHOR:         Mike Shaffer                                 :::
  6.         ':::    DATE:           Feb 2, 1991                                  :::
  7.         ':::    VERSION:        2.0                                          :::
  8.         ':::    PURPOSE:        Determines if SHARE is loaded.               :::
  9.         ':::    REVISIONS:                                                   :::
  10.         ':::                                                                 :::
  11.         ':::                                                                 :::
  12.         ':::                                                                 :::
  13.         ':::    NOTES:          This SUB assumes you're using PDQ from       :::
  14.         ':::                    Crescent Software. If not (shame on you!)    :::
  15.         ':::                    than you can modify the interrupt call to    :::
  16.         ':::                    use INT86 as provided with QuickBASIC.       :::
  17.         ':::                                                                 :::
  18.         ':::                                                                 :::
  19.         ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  20.         ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  21.         '                                       '
  22.         '                                       '
  23.         sub ISSHARE(status%) static
  24.            '                                    '
  25.            dim regs as regtype                  ' Create type to hold registers
  26.            '                                    ' NOTE: regtype is defined in
  27.            '                                    '       the PDQ declarations
  28.            '                                    '       include. If you're not
  29.            '                                    '       using PDQ, you'll
  30.            '                                    '       probably want to use
  31.            '                                    '       INT86 as provided by
  32.            '                                    '       QuickBASIC, in which
  33.            '                                    '       case the interrupt
  34.            '                                    '       control structure will
  35.            '                                    '       be an integer array.
  36.            '                                    '       (see the QB docs)
  37.            '                                    '
  38.            '                                    '
  39.            regs.ax = &h1000                     ' AH=&h10, AL=&h00
  40.            '                                    '   Function to test SHARE
  41.            interrupt &h2F,regs                  ' So we get it! (returned in AL)
  42.            Status% = (regs.ax AND &hFF) = &hFF  '
  43.            '                                    '
  44.            '                                    '
  45.         end sub
  46. 
  47.  
  48.